home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
back issues
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
104 lines
0 rem back issue list
1 ifl=0thenl=1:load"routines v4",8,1
2 ifl=1thenl=2:load"searcher",8,1
3 open15,8,15
4 poke650,255
5 da$=" --------------------------------------"
6 li=52016:su=51206:sd=51209:cl=51203
7 forc=1to25:printda$:next
8 print"[147][154]";:poke53281,0:poke53282,9
9 poke1020,4:poke1021,24:poke1022,0:poke1023,39
10 fi$="back issues.t"
20 dm=1000:dimin$(dm)
30 gosub5000:remopening blurb
40 gosub6000:remload file
45 print"[147]";
50 gosub7000:print"";
800 print:forc1=0to17:printin$(c1):next:printin$(c1);:lp=0
810 poke646,1:syscl:print"";
850 getk$:print"[158]";:ifk$=""then850
855 ifk$="f"thengosub20000
860 ifk$="[145]"ork$=""ork$="[134]"ork$="[138]"thengosub11000:goto850
865 ifk$="[137]"ork$="[133]"thenforcc=1to18:gosub11000:next:goto850
870 ifk$=""ork$="[157]"ork$="[139]"ork$="[135]"thengosub10000:goto850
875 ifk$="[136]"ork$="[140]"thenforcc=1to18:gosub10000:next:goto850
877 ifk$="p"thengosub2000:print"[147]":goto50
878 ifk$="x"ork$="[216]"then63000
880 print"[158]";:gosub7000:print"[146][154]";:gosub7000:goto850
1000 :
2000 rem hard(NULL)
2010 print""da$:printda$:print"[212]urn on your printer and press[160]<return>"
2011 getk$:ifk$=""then2011
2012 ifk$<>chr$(13)then2090
2015 print" [208]ress any key to stop printing. "
2020 print"";
2030 open4,4,7
2040 forcp=0tolc:getk$:ifk$<>""then2070
2050 print#4,spc(20);in$(cp)
2060 next
2070 print#4:close4
2090 return
5000 print""da$:print" --[204]oading the [204][207][193][196][211][212][193][210] [194]ack [201]ssues.--"
5010 print" ----------[208]lease be patient.----------"
5045 print:print:print"[208]ress 'x' to exit now without reading"
5050 print:print"this article."
5060 return
6000 open8,8,8,fi$
6030 ll=0:poke781,8:sys65478
6040 sysli,b$:in$(ll)=mid$(b$,1)
6044 ifpeek(198)<>0thenifpeek(631)=88then6100
6045 ifst=0thenll=ll+1:goto6040
6100 sys65484:close8:close15
6105 lc=ll
6110 return
6150 sys65484:close8:close15
7000 print" -----[208]ress f1-f7 keys to move text----"
7005 print" -------[208]ress 'p' to print text.-------"
7010 print" ----------[208]ress 'x' to exit-----------"
7011 print" ----------[208]ress 'f' to find-----------"
7020 return
10000 poke646,1:syscl:print"";
10010 iflp<lc-15thensyssu:lp=lp+1:print""in$(lp+18):return
10015 poke53280,rnd(1)*15
10020 return
11000 poke646,1:syscl:print"";
11010 if lp>0thensyssd:lp=lp-1:print""in$(lp):return
11015 poke53280,rnd(1)*15
11020 return
20000 rem find an element
20010 print"[147]"spc(10)"find an element"
20020 print""
20030 input"find what";f$:print"[147]"
20035 fordl=1to100:next:poke198,0
20040 forfs=0toll:in$=in$(fs):poke53280,rnd(1)*15
20045 ifpeek(198)<>0thenfs=ll:goto21000
20050 sys49411in$:sys49411f$
20060 m%=0:s%=0:sys49408f$in$m%s%
20065 ifm%=0then21000
20070 ifm%<>0thenpoke53280,6:gosub22000
20072 ifm%<>0thenprint""spc(6)"[195][146]ontinue or [209][146]uit";
20073 ifm%<>0thenprint" searching?"
20080 poke198,0:wait198,1:getk$:poke198,0
20090 ifk$="c"then21000
20100 ifk$="q"thenfs=ll:goto21000
20110 goto20080
21000 next fs
21500 print" [198][201][206][201][211][200][197][196]..[208]ress a key to continue":poke198,0:wait198,1:poke198,0
21600 poke646,0:syscl:print"[147]";:gosub7000:forzz=lptolp+18:printin$(zz):next:return
22000 rem update found screen
22010 poke646,0:syscl:print"";:lp=fs-9:fl=fs+8
22020 iflp<0thenlp=0:fl=17:goto22040
22030 iffl>llthenfl=ll+8
22040 print"":forzz=lptofl
22050 ifzz=fsthenprintleft$(in$(zz),m%-1);
22051 ifzz=fsthen print""mid$(in$(zz),m%,len(f$))"[146]";
22052 ifzz=fsthenprintmid$(in$(zz),m%+len(f$)):goto22055
22054 printin$(zz)
22055 nextzz
23000 return
24000 :
25000 :
63000 poke650,128
63010 print"[147]load"chr$(34)"hello"chr$(34)",8":print"run"
63020 poke631,13:poke632,13:poke198,2:end